object FormMain: TFormMain
  Left = 116
  Top = 259
  Width = 550
  Height = 340
  Caption = 'FormMain'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object DBGrid1: TDBGrid
    Left = 12
    Top = 48
    Width = 517
    Height = 115
    Anchors = [akLeft, akTop, akRight, akBottom]
    DataSource = DataSource1
    TabOrder = 0
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
  end
  object Button1: TButton
    Left = 456
    Top = 12
    Width = 75
    Height = 25
    Caption = 'Perf. Test'
    TabOrder = 1
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 372
    Top = 12
    Width = 75
    Height = 25
    Caption = 'Open/Close'
    TabOrder = 2
    OnClick = Button2Click
  end
  object Button3: TButton
    Left = 12
    Top = 12
    Width = 75
    Height = 25
    Caption = 'Cache Stats'
    TabOrder = 3
    OnClick = Button3Click
  end
  object DBGrid2: TDBGrid
    Left = 6
    Top = 180
    Width = 511
    Height = 115
    DataSource = DataSource2
    TabOrder = 4
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
  end
  object IfxConnection1: TIfxConnection
    Connected = True
    DesignConnection = True
    Params.Strings = (
      'CC8BITLEVEL='
      'CLIENT_LOCALE=en_US.CP1252'
      'COLLCHAR='
      'CONRETRY='
      'CONTIME='
      'DATABASE=stores7@ol_fisher'
      'DB_LOCALE='
      'DBALSBC='
      'DBANSIWARN='
      'DBAPICODE='
      'DBASCIIBC='
      'DBCENTURY='
      'DBCODESET='
      'DBCONNECT='
      'DBCSCONV='
      'DBCSOVERRIDE='
      'DBCSWIDTH='
      'DBDATE='
      'DBFLTMSK='
      'DBLANG='
      'DBMONEY=$.'
      'DBMONEYSCALE='
      'DBNLS='
      'DBPATH='
      'DBSS2='
      'DBSS3='
      'DBTEMP='
      'DBTIME='
      'DELIMIDENT='
      'ESQLMF='
      'FET_BUFF_SIZE='
      'GL_DATE='
      'GL_DATETIME='
      'IFX_AUTOFREE='
      'IFX_DEFERRED_PREPARE='
      'IFX_USE_PREC_16='
      'INFORMIXDIR=C:\Program Files\Informix\Client-SDK'
      'INFORMIXSERVER=ol_fisher'
      'INFORMIXSQLHOSTS='
      'LANG='
      'LC_COLLATE='
      'LC_CTYPE='
      'LC_MONETARY='
      'LC_NUMERIC='
      'LC_TIME='
      'NODEFDAC='
      'NOZEROMDY='
      'OPTMSG='
      'OPTOFC=1'
      'WIN32HOST='
      'WIN32OPTIONS='
      'WIN32PROTOCOL='
      'WIN32SERVICE='
      'WIN32PASS='
      'WIN32USER=')
    StatementCacheSize = 20
    FieldTypes.Decimal = ftFloat
    FieldTypes.DateTimeOnlyDate = ftDate
    FieldTypes.DateTimeOnlyTime = ftTime
    FieldTypes.NChar = ftString
    FieldTypes.NVarChar = ftWideString
    Left = 36
    Top = 42
  end
  object DataSource1: TDataSource
    DataSet = IfxQuery1
    Left = 108
    Top = 42
  end
  object IfxQuery1: TIfxQuery
    Connection = IfxConnection1
    DesignActivation = True
    SQL.Strings = (
      'select * from customer'
      '/*'
      'select'
      ' c_char,'
      ' c_smallint,'
      ' c_int,'
      ' c_float,'
      ' c_smallfloat,'
      ' c_decimal_def,'
      ' c_decimal_fix,'
      ' c_decimal_flt,'
      ' c_serial,'
      ' c_date,'
      ' c_money,'
      ' c_time,'
      ' c_datetime,'
      ' c_bytes,'
      ' c_text,'
      ' c_varchar,'
      ' c_interval,'
      ' c_nchar,'
      ' c_nvarchar,'
      ' c_int8,'
      ' c_serial8,'
      ' c_int_set,'
      ' c_row_mset,'
      ' c_float_list,'
      ' c_row,'
      ' c_clob,'
      ' c_blob,'
      ' c_lvarchar,'
      ' c_boolean'
      'from'
      '  regress'
      '*/'
      ''
      '--select c_boolean from regress'
      '--select c_int from regress')
    Left = 72
    Top = 42
  end
  object IfxSQL1: TIfxSQL
    Left = 288
    Top = 18
  end
  object IfxQuery2: TIfxQuery
    Connection = IfxConnection1
    DataSource = DataSource1
    SQL.Strings = (
      'select * from customer where customer_num = :customer_num')
    Left = 72
    Top = 84
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'customer_num'
        ParamType = ptInput
      end>
  end
  object DataSource2: TDataSource
    DataSet = IfxQuery2
    Left = 108
    Top = 84
  end
end
